home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / BUDGET EDIT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  56 lines
  1. 10 M1 = 0:M2 = 0
  2. 20 D$ =  CHR$(4):N$ = ""
  3. 30  DIM BU(30,13,2),S(30,15),R(13,2)
  4. 40 M1 =  PEEK(107) +256 * PEEK(108)
  5. 50 M2 =  PEEK(109) +256 * PEEK(110)
  6. 60  DIM B$(30),MN$(13)
  7. 70  TEXT : HOME : PRINT "BUDGET EDIT": INPUT "BUDGET  DATA  FILE NAME? ";N$
  8. 80  PRINT D$;"BLOAD";N$;",A";M1
  9. 90  REM 
  10. 100  INPUT "STRING FILE NAME? ";N$
  11. 110  PRINT D$"OPEN";N$: PRINT D$;"READ";N$
  12. 120  FOR I = 1 TO 30: INPUT B$(I): NEXT I
  13. 130  FOR I = 1 TO 13: INPUT MN$(I): NEXT I
  14. 140  PRINT D$"CLOSE";N$
  15. 150  REM 
  16. 160  PRINT 
  17. 170  INPUT "BUDGET ITEM # (0 TO TERMINATE) ";I: IF I >30  THEN 170
  18. 180  IF I = 0  THEN 310
  19. 190  HOME : PRINT B$(I): PRINT "MONTH"; TAB( 10);"BUDGET"; TAB( 30);"ACTUALS"
  20. 200  FOR MN = 1 TO 12: PRINT MN; TAB( 10);BU(I,MN,1); TAB( 30);BU(I,MN,2): NEXT MN: PRINT 
  21. 210  POKE 34,15
  22. 220  INPUT "BUDGET (1), ACTUALS (2), DONE(0)? ";K
  23. 230  IF K = 0  THEN 300
  24. 240  INPUT "MONTH #? ";J
  25. 250  IF J >13  THEN 240
  26. 260  PRINT B$(I)
  27. 270  PRINT "CURRENT VALUE ";BU(I,J,K);" NEW  VALUE";
  28. 280  INPUT BU(I,J,K)
  29. 290  TEXT : HOME : GOTO 190
  30. 300  TEXT : HOME : GOTO 170
  31. 310  FOR K = 1 TO 2: FOR J = 1 TO 30:BU(J,13,K) = 0
  32. 320  FOR I = 1 TO 12
  33. 330  IF S(J,1) < >0  THEN  GOSUB 480:
  34. 340 BU(J,13,K) = BU(J,13,K) +BU(J,I,K): NEXT : NEXT : NEXT 
  35. 350  REM  CALCULATE RATIOS
  36. 360 NDIGITS = 1000
  37. 370  FOR K = 1 TO 2
  38. 380 DL = 0:OV = 0: FOR MN = 1 TO 13
  39. 390 DL = DL +BU(5,MN,K):OV = OV +BU(30,MN,K)
  40. 400 R(MN,K) =  INT(OV/DL *NDIGITS)/NDIGITS
  41. 410  NEXT : NEXT 
  42. 420  HOME : PRINT : PRINT "EXPENSE TO INCOME RATIO": PRINT "MONTH"; TAB( 10);"BUDGET"; TAB( 20);"ACTUAL": FOR MN = 1 TO 12: PRINT MN$(MN); TAB( 10);R(MN,1); TAB( 20);R(MN,2): NEXT 
  43. 430  INPUT "OUTPUT FILE NAME? ";N$
  44. 440 M1 =  PEEK(107) +256 * PEEK(108)
  45. 450 M2 =  PEEK(109) +256 * PEEK(110)
  46. 460  PRINT D$"BSAVE";N$;",A";M1;",L";M2 -M1 +1
  47. 470  PRINT "DONE": STOP 
  48. 480  REM  RUN SUBTOTALS
  49. 490 RT = 0
  50. 500  FOR L = 2 TO 15:RT = RT +BU(S(J,L),I,K): NEXT 
  51. 510 BU(S(J,1),I,K) = RT
  52. 520  PRINT "MONTH ";I; TAB( 10);B$(J); SPC( 2);RT
  53. 530  RETURN 
  54. 63000  REM  WRITTEN BY LOGAN R. ZINTSMASTER 12/27/80
  55. 63010  REM  PERMISSION IS GRANTED TO REPRODUCE THIS PROGRAM FOR USE BY APPLE COMPUTER USER GROUPS 
  56. 63020  REM  ALL COMMERCIAL RIGHTS RESERVED